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title pli$heep - pl1 runtime heep allocation 
-ident P71 -0087 . “ 3 Edit WHM1003 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
RIGHTS RESERVED. 


SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
USION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
R PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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facility: 

VAX/VMS PL1 runtime Library. 
abstract: 


: Runtime routines to allocate and deallocate heep space. 
> author: R. Heinen 16-dec-1978 


modifications: 


SOOCOCCOCSCOSCOOOSOSCSOSOSOOCOOCOSOSOOOSOOOOOOSOOOSOOOSoO 


CDOCDDWOCCOCOCCOCOCOCOCCOOCOCOOOSOOCOSOSOOCSOSOSOSOOCOOCOCOO OOOO OOSOO OOOO OOOOCOOOOSoOOoOO 


1-002 

Modified both routines, to allow them be called with different 

number of parameters and so work for the controlled variable. 
Alex Wu 03/24/82 


add the new routine - PLISALLOCATION to return the number of 

generation that a controlled variable has been allocated. 
Alex Wu 03/30/82 

1-003 Bill Matthews 29-September-1982 


Invoke macros $defdat and rtshare instead of $defopr and share. 
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; external definitions 
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: local data 


rtshare 
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-sbttl pliSaloheep - allocate heep space 


Ooo 
Ooo 


pli$alocheep - allocate heep space 
functional description: 


This routine allocates a memory block using ‘‘lLib$get_vm"’. 

The alloocated block is a longword (or two longword) bigger in order to 
save the allocated size (and/or the previous pointer)in the block itself. 
The size is stored in the first longword (the pointer is save in the first 
Longword). The returned address 

is the address of the actual free space. 


inputs: 
(ap) = 2 (or 3 for the controlled variables) 
4(ap) = longword size 
8(ap) = address to store address of the data 
12(ap) = address to the current block -- if exist 
outputs: 


r0 = success indicator fixed binary(32) 


r0 = ss$_normal for success 
LibS_insvirmem - insufficient memory for request 
Lib$_badblosiz - bad size parameter 


If an error is indicated by r0 then the returned address is 0. 
and the error is signalled. 


See Se Ge Se Ge Ge Ge Se Ge Ge Ge Ge Se Ge Se Se Se Se Se Se Se Se Se Se Se See Se Se 
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SOOSCOSOSOOSOOSOSOOOOOOO OOOO SOOOSOOOOCOOSOSOOOO OOOO OOOOOOOOOCOOOOOoOO 


OOOCOCSCOCOOCOCOCOOCOCCOC SOOO COOSOSOOSOOCSOOC OOO OOOO OSOOOOOOOOOOOOOOoOO 
FWWAAUAPIPINININIP 2  $ --QOOCOCOCOCCOOCOCOCSO OOOO SOOOOOOOSOOOOOOOOOOOOSOOoOO 


SOONANMM OO DOWO DOHA LM ANG SVN OOCCOCCCCCOOCOCCOOCOOCOOCOCOOOOOOOOOoOO 
3 9 | QOOGDOOOOGD0 000000 O00 W009 0000 09 00 09 09 09 0909 SI NIN NINN NINN A OOAO Oo 
BIE WN OC OONAUE WIN 0 OONAU EWN 0 OD NAME WN $0 ODNAULS WN OOONOUS 


0000 entry pli$alocheep,0 
08 BC D4 clrl a8 (ap) ; assume allocation failure 
7E O04 AC O04 (C1 addl\3 _#4,4(ap),-(sp) ; build following arg List 

“ae cmpl #2,(a 3; based ? 

os WS 1 beql 10$ ; less than or equal then yes 
6—E 04 C0 1 addl2 #4,(sp) ; one more longword for pointer 

7E D4 102 10$: clrl rh ; address to return address 
6—E OF 1 pushab (sp s 

08 AE OF 1 pushab 8(sp) | : 

00000000'GF 02 FB 1 calls 66 gt bSget_ve ; allocate the memory 
1450 €9 1 blbc r0,20$ ; if low clear then error 
50 8EDO 1 popl r0 3 get address of allocated space 
80 8ED0 1 popl (r0)+ : insert size in buffer 
6C O02 01 1 cmpl #2, (ap) ; based ? 
04 13 1 beql 15§ ; less than or equal than yes 
80 OC AC 00 1 mov | 12(ap),(r0)+ 3; save pointer 
08 BC (50 ? ’ 15$: wovl r0,a8(ap) 3 return address of allocated memory 
re 
50 DD 114 208: pushl 0 ‘Ate ; signal error condition 
00000000'GF 01 re cails #1, g*lib$signal 
re 
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0941 118 . -sbttl pli$freeheep - deallocate heep space 
oh : y : pli$freeheep - deallocate heep space 
3 : : functional description: 
041 124 : This routine is the complementary r sg sag to ‘'pli$alocheep’’. 
9 ! 5 ; The memory is retured via ‘‘Lib$free 
44 ; : inputs: 
0041 129 : (ap) = 1 (or 2 for the controlled variables) 
041 130; 4(ap) = address of memory ; 
98 : 1; 8(ap) = address of the based pointer -- if exist 
9041 138 : The block must have been allocated using "'pli$aloheep”. 
Bae 136 : outputs: 
0041 137 : For the controlled variables, there is a side effect on the 
0041 138 : based pointer a8(ap) 
Boel F 4 3 r0 = success indicator fixed binary(32) 
0041 141: r0 = ss$_normal for success 
98 136 : LibS_badblosiz - incorrect block size parameter 
0000 0041 144 , entry pli$freeheep,0 
50 04 AC 046 (C3 00463 146 subl3 #4,4(ap),r0 ; address block size or pointer longword 
6C 01 D1 0048 £147 cmpl #1,(ap ; based variable ? 
07 13 0048 148 beql 3 : less than or equal than yes 
08 BC 60 DO O004D 149 movl (r0) ,a8(ap) 3 save previous block pointer 
50 04 C2 0051 150 subl2 #4,r6 : adress to block size 
50 DD 0054 151 30$: pushl r0 3 put address in memory 
3 od boas 136 pushes. (sp) 3; set up arg List 
us ; 
00000000'GF 02 FB O0SA 13% 7: Poe S tree ths eaners 
04 0061 155 ret 
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-sbttl pli$allocation = return number of time that has been allocated 

pli$allocation - return number of time that has been allocated 

functional description: 

This routine are the builtin funtion ALLOCATION which return the 
enerations that a controlled variable has been allocated. It walks 

aay the Link List and increment the count each time Looks at a 
new block until the end of the List (null pointer). 

inputs: 


address of the current active block 


(ap) 

4(ap) = 

8(ap) = address of the return value 
k 


The bloc 
outputs: 


must have been allocated using ‘‘pli$aloheep”’. 


8(ap) contains the return value 


Sete Ge Se Se Ge Ge Ge Ge Se Ge Se Se Se Ge Ge Ge Ge Se Ge Ge Ge 
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entry pli$allocation,0 


i dh hh 
50.00.00 09 09 09 09 00 09 09 09 SININSI SINS SIN NINNIOAO AAPA 
SOONAWNE WN 0 OONAUES WN OOO NOUS Wh OOOnN 


08 BC D4 0064 clrl oFte ) ; initialize the counter 
50 04 AC 00 0067 mov 4(ap),r0 ; get the pointer 
08 13 0068 beql ; 1f null pointer then done 
08 BC D6 006D 10$: incl My ; increment the counter 
50 70 00 pO78 mov Ten" r0 ; get previous block address 
F8 12 007 bnequ ; keep looping if not null pointer 
04 0075 30$: ret 
0076 
0076 -end 


ss SS ———e . } 
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LIBSFREE_ VM ereteeee 
LIBSGET 9M eeeeeene 
LIBSSIGRAL eeeeenee 
PLISALLOCATION 009000: 
PLISALOCHEEP 00000000 RG 
PLISFREEHEEP 00000041 RG 


=< 
oOoo°ooo 
pare Seer er pera 


PSECT name Allocation PSECT No. Attributes 


» CS , 00000000 <¢ 0.) 00 ¢ QO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_PLISCODE 00000076 ¢ 118.) O1¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG | 
ee eeeeeoeceeccecenee + 


wow wn ee ee ene mw eee mew ee mee + 


Phase Page faults CPU Time Elapsed Time 


Initialization 00:00:00.05 00:00:00.59 
pomnend processing 68 00:00:00.54 00:00:01.51 
s 1 61 00:00:00.55 00:00:01.26 
Synbol table sort 9 00:00:00.00 00:00:00.00 
Pass 2 4 Bb SEG FS 00:00:00.60 
Symbol table output 1 00:00:00.01 00:00:00.01 
Psect synopsis output 1 00:00:00.02 00:00:00.02 
Cross-reference output 9 00:00:00.00 00:00:00.00 
Assembler run totals 18 00:00:01.56 00:00:04.00 


2560 bytes (5 pages) of virtual memory were used to buffer the intermediate code. 

ioare were 10 pages of symbol table space allocated to hold 6 non-local and 6 local symbols. 
190 source Lines were read in Pass 1, producing 17 object records in Pass 2. 

1 page of virtual memory was used to “define 1 macro. 


See ene oe ee mw eee ee ee rem eee eed 


| 
| 
| 
| 
The working set Limit was 750 popes. 
| 
| 
| 


Macro Library name Macros defined 
.$255$DUA28: CPLIRTL.OBJJPLIRTMAC.MLB; 1 1 
“$255$DUA28:(SYSLIBISTARLET. MLB; 2 0 

TOTALS (all Libraries) 1 


3 GETS were required to define 1 macros. | 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DI SABLE=TRACEBACK/LIS=LIS$:PLIHEEP/OBJ=0BJ$:PLIHEEP MSRC$:PLIHEEP/UPDATE=(ENHS:PLIHEEP) +LIBS:PLIRTMAC/LIB 
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